home *** CD-ROM | disk | FTP | other *** search
/ Interplay's Learn to Program Basic (Review Copy) / Learn to Program Basic Review Copy (Interplay)(June 23, 1998).ISO / pc / ltpbasic / exercise / mathmagi.bas < prev    next >
Encoding:
BASIC Source File  |  1998-04-07  |  273 b   |  19 lines
  1. cls
  2. print "Please enter a number "
  3. print "less than 100: ";
  4. input number
  5. let number02 = (((((number*5)+6)*4)+9)*5)
  6. print number02
  7. let number03 = number02/100
  8. print number03
  9. let number04 = int(number03)
  10. print number04
  11. let finalnumber = number04 - 1
  12.  
  13. print finalnumber
  14.  
  15.  
  16.  
  17.  
  18.